home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / SYSTYP.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  1KB  |  35 lines
  1. CLS
  2.  PRINT " * System Checker * "
  3.  
  4.   DEF SEG = &HF000
  5.    id% = PEEK(&HFFFE)
  6.   PRINT " Your system is a"; id%
  7.  
  8. SELECT CASE id%
  9.  CASE IS = 255: System$ = "Just an other ordinary PC"
  10.   CASE IS = 254: System$ = "An XT or Portable PC"
  11.    CASE IS = 253: System$ = "PC Jr."
  12.     CASE IS = 252: System$ = "AT , XT286 , PS/2 with 80286"
  13.      CASE IS = 251: System$ = "Latest Model XT."
  14.     CASE IS = 250: System$ = "PS/2 Model 30"
  15.    CASE IS = 249: System$ = "PC Convertible"
  16.   CASE IS = 248: System$ = "PS/2 with 80386"
  17.  CASE ELSE: System$ = "Unknown ! , Please send a message to author,marked"
  18.  
  19. END SELECT
  20.  
  21.  PRINT " Better known as a : "; System$
  22.  
  23. '-------------------------------------------------------------------------
  24. '- 'Please,if your system is something else than in the listing above,will
  25. 'be so kind to send me a message on Rime at TACOASD ????
  26. 'I'll only need the id% number , and the system configuration you use.
  27. 'because I'm writing a programm for my boss,and I KNOW it's gonna be
  28. 'copied I will maken only work at an 286 AT (That's what he has !)
  29. 'But ANY information on this subject is welcome !
  30. 'You can send your message to TACOASD and write it to Rob Vissersdijk.
  31. 'That goes for the Dutch TacoNet Members also !
  32. '                        ~~~~~~~
  33. '-------------------------------------------------------------------------
  34.  
  35.